home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 4 / The 640 Meg Shareware Studio CD-ROM Volume IV (Data Express)(1994).ISO / clang / 3ctrls.zip / FLOOD.FRM < prev    next >
Text File  |  1993-07-21  |  14KB  |  431 lines
  1. VERSION 2.00
  2. Begin Form fFlood 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Automatic resizing and flooding"
  5.    Height          =   5430
  6.    Left            =   1140
  7.    LinkTopic       =   "Form1"
  8.    ScaleHeight     =   4965
  9.    ScaleWidth      =   8145
  10.    Top             =   1230
  11.    Width           =   8325
  12.    Begin VideoSoftElastic StatusBar 
  13.       Align           =   2  'Align Bottom
  14.       AutoSizeChildren=   2  'Uneven Horizontally
  15.       BackColor       =   &H00C0C0C0&
  16.       BevelInner      =   3  'Inset
  17.       BevelInnerWidth =   1
  18.       BevelOuter      =   2  'Raised Outlined
  19.       BevelOuterWidth =   2
  20.       BorderWidth     =   6
  21.       Caption         =   ""
  22.       CaptionPos      =   1  'Left Center
  23.       ChildSpacing    =   6
  24.       FloodColor      =   &H000000C0&
  25.       FloodDirection  =   0  'None
  26.       FloodPercent    =   0
  27.       Height          =   645
  28.       Left            =   0
  29.       Splitter        =   0  'No
  30.       TabIndex        =   1
  31.       Top             =   4320
  32.       Width           =   8145
  33.       Begin VideoSoftElastic VSElastic3 
  34.          Align           =   0  'None
  35.          AutoSizeChildren=   1  'Even Horizontally
  36.          BackColor       =   &H00C0C0C0&
  37.          BevelInner      =   3  'Inset
  38.          BevelInnerWidth =   1
  39.          BevelOuter      =   2  'Raised Outlined
  40.          BevelOuterWidth =   2
  41.          BorderWidth     =   6
  42.          Caption         =   ""
  43.          CaptionPos      =   1  'Left Center
  44.          ChildSpacing    =   6
  45.          FloodColor      =   &H000000C0&
  46.          FloodDirection  =   0  'None
  47.          FloodPercent    =   0
  48.          Height          =   465
  49.          Index           =   1
  50.          Left            =   5190
  51.          Splitter        =   0  'No
  52.          TabIndex        =   9
  53.          Top             =   90
  54.          Width           =   2865
  55.          Begin CommandButton Command1 
  56.             Caption         =   "B"
  57.             Height          =   285
  58.             Index           =   9
  59.             Left            =   1920
  60.             TabIndex        =   12
  61.             Top             =   90
  62.             Width           =   855
  63.          End
  64.          Begin CommandButton Command1 
  65.             Caption         =   "B"
  66.             Height          =   285
  67.             Index           =   8
  68.             Left            =   1005
  69.             TabIndex        =   11
  70.             Top             =   90
  71.             Width           =   825
  72.          End
  73.          Begin CommandButton Command1 
  74.             Caption         =   "B"
  75.             Height          =   285
  76.             Index           =   7
  77.             Left            =   90
  78.             TabIndex        =   10
  79.             Top             =   90
  80.             Width           =   825
  81.          End
  82.       End
  83.       Begin VideoSoftElastic VSElastic2 
  84.          Align           =   0  'None
  85.          AutoSizeChildren=   1  'Even Horizontally
  86.          BackColor       =   &H00C0C0C0&
  87.          BevelInner      =   3  'Inset
  88.          BevelInnerWidth =   1
  89.          BevelOuter      =   2  'Raised Outlined
  90.          BevelOuterWidth =   0
  91.          BorderWidth     =   6
  92.          Caption         =   ""
  93.          CaptionPos      =   1  'Left Center
  94.          ChildSpacing    =   6
  95.          FloodColor      =   &H000000C0&
  96.          FloodDirection  =   0  'None
  97.          FloodPercent    =   0
  98.          Height          =   465
  99.          Index           =   1
  100.          Left            =   90
  101.          Splitter        =   0  'No
  102.          TabIndex        =   13
  103.          Top             =   90
  104.          Width           =   5010
  105.          Begin TextBox Text1 
  106.             FontBold        =   0   'False
  107.             FontItalic      =   0   'False
  108.             FontName        =   "MS Sans Serif"
  109.             FontSize        =   8.25
  110.             FontStrikethru  =   0   'False
  111.             FontUnderline   =   0   'False
  112.             Height          =   285
  113.             Index           =   2
  114.             Left            =   90
  115.             TabIndex        =   15
  116.             Text            =   "When the form is resized, check this text box and the B buttons."
  117.             Top             =   90
  118.             Width           =   4830
  119.          End
  120.       End
  121.    End
  122.    Begin VideoSoftElastic Flood 
  123.       Align           =   0  'None
  124.       AutoSizeChildren=   0  'None
  125.       BackColor       =   &H00C0C0C0&
  126.       BevelInner      =   3  'Inset
  127.       BevelInnerWidth =   1
  128.       BevelOuter      =   2  'Raised Outlined
  129.       BevelOuterWidth =   2
  130.       BorderWidth     =   6
  131.       Caption         =   ""
  132.       CaptionPos      =   4  'Center Center
  133.       ChildSpacing    =   6
  134.       FloodColor      =   &H0000FF00&
  135.       FloodDirection  =   4  'Down
  136.       FloodPercent    =   0
  137.       Height          =   3255
  138.       Index           =   3
  139.       Left            =   3375
  140.       Splitter        =   0  'No
  141.       TabIndex        =   0
  142.       Top             =   855
  143.       Width           =   645
  144.    End
  145.    Begin VideoSoftElastic Flood 
  146.       Align           =   0  'None
  147.       AutoSizeChildren=   0  'None
  148.       BackColor       =   &H00C0C0C0&
  149.       BevelInner      =   3  'Inset
  150.       BevelInnerWidth =   1
  151.       BevelOuter      =   2  'Raised Outlined
  152.       BevelOuterWidth =   2
  153.       BorderWidth     =   6
  154.       Caption         =   ""
  155.       CaptionPos      =   4  'Center Center
  156.       ChildSpacing    =   6
  157.       FloodColor      =   &H00FF00FF&
  158.       FloodDirection  =   3  'Up
  159.       FloodPercent    =   0
  160.       Height          =   2715
  161.       Index           =   2
  162.       Left            =   450
  163.       Splitter        =   0  'No
  164.       TabIndex        =   8
  165.       Top             =   855
  166.       Width           =   645
  167.    End
  168.    Begin VideoSoftElastic Flood 
  169.       Align           =   0  'None
  170.       AutoSizeChildren=   0  'None
  171.       BackColor       =   &H00C0C0C0&
  172.       BevelInner      =   3  'Inset
  173.       BevelInnerWidth =   1
  174.       BevelOuter      =   2  'Raised Outlined
  175.       BevelOuterWidth =   2
  176.       BorderWidth     =   6
  177.       Caption         =   ""
  178.       CaptionPos      =   4  'Center Center
  179.       ChildSpacing    =   6
  180.       FloodColor      =   &H00FFFF00&
  181.       FloodDirection  =   2  'Left
  182.       FloodPercent    =   0
  183.       Height          =   555
  184.       Index           =   1
  185.       Left            =   450
  186.       Splitter        =   0  'No
  187.       TabIndex        =   16
  188.       Top             =   3555
  189.       Width           =   2940
  190.    End
  191.    Begin VideoSoftElastic Flood 
  192.       Align           =   0  'None
  193.       AutoSizeChildren=   0  'None
  194.       BackColor       =   &H00C0C0C0&
  195.       BevelInner      =   3  'Inset
  196.       BevelInnerWidth =   1
  197.       BevelOuter      =   2  'Raised Outlined
  198.       BevelOuterWidth =   2
  199.       BorderWidth     =   6
  200.       Caption         =   ""
  201.       CaptionPos      =   4  'Center Center
  202.       ChildSpacing    =   6
  203.       FloodColor      =   &H0000FFFF&
  204.       FloodDirection  =   1  'Right
  205.       FloodPercent    =   0
  206.       Height          =   555
  207.       Index           =   0
  208.       Left            =   1080
  209.       Splitter        =   0  'No
  210.       TabIndex        =   17
  211.       Top             =   855
  212.       Width           =   2310
  213.    End
  214.    Begin VideoSoftElastic VSElastic1 
  215.       Align           =   0  'None
  216.       AutoSizeChildren=   0  'None
  217.       BackColor       =   &H00C0C0C0&
  218.       BevelInner      =   3  'Inset
  219.       BevelInnerWidth =   1
  220.       BevelOuter      =   1  'Raised
  221.       BevelOuterWidth =   2
  222.       BorderWidth     =   6
  223.       Caption         =   "VideoSoft Elastic makes all the controls inside 3D."
  224.       CaptionPos      =   3  'Center Top
  225.       ChildSpacing    =   6
  226.       FloodColor      =   &H000000C0&
  227.       FloodDirection  =   0  'None
  228.       FloodPercent    =   0
  229.       ForeColor       =   &H00FF0000&
  230.       Height          =   3135
  231.       Index           =   1
  232.       Left            =   4815
  233.       Splitter        =   0  'No
  234.       TabIndex        =   20
  235.       Top             =   900
  236.       Width           =   2940
  237.       Begin CommandButton Command1 
  238.          Caption         =   "This is a regular button"
  239.          FontBold        =   0   'False
  240.          FontItalic      =   0   'False
  241.          FontName        =   "MS Sans Serif"
  242.          FontSize        =   8.25
  243.          FontStrikethru  =   0   'False
  244.          FontUnderline   =   0   'False
  245.          Height          =   465
  246.          Index           =   10
  247.          Left            =   405
  248.          TabIndex        =   22
  249.          Tag             =   "H"
  250.          Top             =   2250
  251.          Width           =   2055
  252.       End
  253.       Begin TextBox Text1 
  254.          Height          =   915
  255.          Index           =   0
  256.          Left            =   360
  257.          MultiLine       =   -1  'True
  258.          ScrollBars      =   2  'Vertical
  259.          TabIndex        =   21
  260.          Text            =   "This is a regular text box"
  261.          Top             =   630
  262.          Width           =   2175
  263.       End
  264.       Begin Label Label1 
  265.          Alignment       =   2  'Center
  266.          BackStyle       =   0  'Transparent
  267.          Caption         =   "This is a regular label"
  268.          ForeColor       =   &H00000000&
  269.          Height          =   285
  270.          Index           =   1
  271.          Left            =   270
  272.          TabIndex        =   18
  273.          Top             =   1710
  274.          Width           =   2400
  275.       End
  276.    End
  277.    Begin Timer Timer1 
  278.       Interval        =   1
  279.       Left            =   4095
  280.       Top             =   3600
  281.    End
  282.    Begin VideoSoftElastic Toolbar 
  283.       Align           =   1  'Align Top
  284.       AutoSizeChildren=   2  'Uneven Horizontally
  285.       BackColor       =   &H00C0C0C0&
  286.       BevelInner      =   3  'Inset
  287.       BevelInnerWidth =   1
  288.       BevelOuter      =   2  'Raised Outlined
  289.       BevelOuterWidth =   2
  290.       BorderWidth     =   6
  291.       Caption         =   ""
  292.       CaptionPos      =   1  'Left Center
  293.       ChildSpacing    =   6
  294.       FloodColor      =   &H000000C0&
  295.       FloodDirection  =   0  'None
  296.       FloodPercent    =   0
  297.       Height          =   645
  298.       Left            =   0
  299.       Splitter        =   0  'No
  300.       TabIndex        =   2
  301.       Top             =   0
  302.       Width           =   8145
  303.       Begin VideoSoftElastic VSElastic2 
  304.          Align           =   0  'None
  305.          AutoSizeChildren=   1  'Even Horizontally
  306.          BackColor       =   &H00C0C0C0&
  307.          BevelInner      =   3  'Inset
  308.          BevelInnerWidth =   1
  309.          BevelOuter      =   2  'Raised Outlined
  310.          BevelOuterWidth =   0
  311.          BorderWidth     =   6
  312.          Caption         =   ""
  313.          CaptionPos      =   1  'Left Center
  314.          ChildSpacing    =   6
  315.          FloodColor      =   &H000000C0&
  316.          FloodDirection  =   0  'None
  317.          FloodPercent    =   0
  318.          Height          =   465
  319.          Index           =   0
  320.          Left            =   90
  321.          Splitter        =   0  'No
  322.          TabIndex        =   3
  323.          Top             =   90
  324.          Width           =   5115
  325.          Begin TextBox Text1 
  326.             FontBold        =   0   'False
  327.             FontItalic      =   0   'False
  328.             FontName        =   "MS Sans Serif"
  329.             FontSize        =   8.25
  330.             FontStrikethru  =   0   'False
  331.             FontUnderline   =   0   'False
  332.             Height          =   285
  333.             Index           =   1
  334.             Left            =   90
  335.             TabIndex        =   14
  336.             Text            =   "When the form is resized, check this text box and the A buttons."
  337.             Top             =   90
  338.             Width           =   4935
  339.          End
  340.       End
  341.       Begin VideoSoftElastic VSElastic3 
  342.          Align           =   0  'None
  343.          AutoSizeChildren=   1  'Even Horizontally
  344.          BackColor       =   &H00C0C0C0&
  345.          BevelInner      =   3  'Inset
  346.          BevelInnerWidth =   1
  347.          BevelOuter      =   2  'Raised Outlined
  348.          BevelOuterWidth =   2
  349.          BorderWidth     =   6
  350.          Caption         =   ""
  351.          CaptionPos      =   1  'Left Center
  352.          ChildSpacing    =   6
  353.          FloodColor      =   &H000000C0&
  354.          FloodDirection  =   0  'None
  355.          FloodPercent    =   0
  356.          Height          =   465
  357.          Index           =   0
  358.          Left            =   5295
  359.          Splitter        =   0  'No
  360.          TabIndex        =   4
  361.          Top             =   90
  362.          Width           =   2760
  363.          Begin CommandButton Command1 
  364.             Caption         =   "A"
  365.             Height          =   285
  366.             Index           =   4
  367.             Left            =   90
  368.             TabIndex        =   7
  369.             Top             =   90
  370.             Width           =   795
  371.          End
  372.          Begin CommandButton Command1 
  373.             Caption         =   "A"
  374.             Height          =   285
  375.             Index           =   2
  376.             Left            =   975
  377.             TabIndex        =   6
  378.             Top             =   90
  379.             Width           =   795
  380.          End
  381.          Begin CommandButton Command1 
  382.             Caption         =   "A"
  383.             Height          =   285
  384.             Index           =   0
  385.             Left            =   1860
  386.             TabIndex        =   5
  387.             Top             =   90
  388.             Width           =   810
  389.          End
  390.       End
  391.    End
  392.    Begin Label Label1 
  393.       Alignment       =   2  'Center
  394.       BackStyle       =   0  'Transparent
  395.       Caption         =   "Flooding with VideoSoft Elastic"
  396.       FontBold        =   -1  'True
  397.       FontItalic      =   0   'False
  398.       FontName        =   "MS Sans Serif"
  399.       FontSize        =   13.5
  400.       FontStrikethru  =   0   'False
  401.       FontUnderline   =   0   'False
  402.       ForeColor       =   &H00FF0000&
  403.       Height          =   1410
  404.       Index           =   0
  405.       Left            =   1305
  406.       TabIndex        =   19
  407.       Top             =   1710
  408.       Width           =   1815
  409.    End
  410. End
  411. Option Explicit
  412.  
  413. Sub Form_Resize ()
  414.   StatusBar.Top = 0
  415. End Sub
  416.  
  417. Sub Timer1_Timer ()
  418.   Dim j%
  419.   Static i%
  420.  
  421.   If i > 97 Then i = 0
  422.   i = i + 3
  423.  
  424.   For j = 0 To 3
  425.     flood(j).FloodPercent = i
  426.     flood(j).Caption = i & "%"
  427.   Next j
  428.  
  429. End Sub
  430.  
  431.